sHelp
                                     MM.EDI.PROGRAM
       2
   mm.edi.program.main
     mm.edi.program.fields

 Ì       2
mm.edi.program.main    (main) 
[mnemonic]
&MJD[mjd]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    15 FREE     L                 mjd                                                         
 active                       1 YN       L                 &MJD[mjd]|0                                                 
 last.update                 10 PINT     R                 &MJD[mjd]UPD                                                
 name                        50 FREE     L                 &MJD[mjd]|1                                                 
 phone                       14 PHONE    L                 &MJD[mjd]|4                                                 
 program                     15 FREE     L  MM.PROGRAM     &MJD[mjd]|3                                             
 Ì        2
mm.edi.program.fields    (fields) 
[mnemonic, field]
&MJD[mjd]F[mjdF]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 field                       10 FREE     L                 mjdF                                                        
 map                         10 FREE     L  MM.EDI.MAP     &MJD[mjd]F[mjdF]|1                                      
 value                       30 FREE     L                 &MJD[mjd]F[mjdF]|0